home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / GameboyDev / GBDK / lib / ftou.s < prev    next >
Text File  |  1999-04-23  |  596b  |  62 lines
  1.  
  2.     ; INCLUDE    "macros.ms"
  3.     .include    "math.s"
  4.     .module    ftou.ms
  5.     .area    _CODE
  6. .ftou::
  7.     bit    7,h
  8.     jr    z,ftou_pos
  9.     ld    a,#0
  10.     ret    
  11. ftou_pos:
  12.     ld    a,h
  13.     cp    #64
  14.     jr    nc,ftou_gteqone
  15.     ld    a,#0
  16.     ret    
  17. ftou_gteqone:
  18.     or    a
  19.     rr    l
  20.     rr    d
  21.     rr    e
  22.     inc    h
  23.     ld    a,h
  24.     cp    #64+24
  25.     jr    c,ftou_gteqone
  26.     ld    a,e
  27.     ret    
  28. .ftoi::
  29.     ld    b,h
  30.     ld    a,h
  31.     and    #0x7f
  32.     ld    h,a
  33.     cp    #0x41
  34.     jr    nc,ftoi_gteqone
  35.     ld    a,#0
  36.     ret    
  37. ftoi_gteqone:
  38.     cp    #0x48
  39.     jr    c,ftoi_norm
  40.     ld    a,#0x7f
  41.     bit    7,b
  42.     ret    z
  43.     ld    a,#0x80
  44.     ret    
  45. ftoi_norm:
  46.     cp    #64+8
  47.     jr    z,ftoi_done
  48.     or    a
  49.     rr    l
  50.     rr    d
  51.     rr    e
  52.     inc    h
  53.     ld    a,h
  54.     jr    ftoi_norm
  55. ftoi_done:
  56.     ld    a,l
  57.     bit    7,b
  58.     ret    z
  59.     cpl    
  60.     inc    a
  61.     ret    
  62.